home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / tools / prtfolio / bar.bas < prev    next >
Encoding:
BASIC Source File  |  1994-09-22  |  378 b   |  19 lines
  1. cls
  2. print "BAR.BAS (c) Rob Kunstadt 1990"
  3. print "Is display tracked PC?"
  4. print "Use Alt-Cursor to scroll"
  5. print
  6. print "How many items to plot (max 12)?"
  7. input "Your choice: ",a
  8. for b=1 to a
  9.  print
  10.  input "Enter a number (1 to 40): ",c
  11.  for d=1 to c
  12.   print ">"
  13.   e=csrlin-1
  14.   f=pos(0)+d
  15.   locate e,f
  16.  next d
  17. next b
  18. if isrun then wait : run "menu" else system
  19. ə